(defun c:tt()
	(setq a (bf-Access-New "C:\\AA.MDB"))
	(setq access(bf-ACCESS-OPEN "C:\\AA.MDB"))
	(bf-Access-Execute access "CREATE TABLE Point (PointID varchar(255),Code varchar(255),ExpNum varchar(255),Feature varchar(255),Subsid varchar(255),X varchar(255),Y varchar(255),H varchar(255),TextId varchar(255))")
	(setq
		ValuesList
		(list
			'("DX" "DX1" "1" "5" "1")
			'("DX" "DX2" "2" "6" "1")
			'("DX" "DX3" "3" "7" "1")
			'("DX" "DX4" "4" "8" "1")
			'("DX" "DX5" "5" "9" "1")
		)
	)
	(foreach Value ValuesList
		(setq biaoming "Point (Code,ExpNum,X,Y,H)")
		(setq Value (bf-access-parse Value))
		(setq sql (strcat "INSERT INTO " biaoming " Values " Value))
		(bf-Access-Execute access sql)
	)
	(princ (bf-Access-Select access "select * from Point"))
	(bf-Access-Close access)
)